home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
HPAVC
/
HPAVC CD-ROM.iso
/
CNBSRC.ZIP
/
REVIEWS.INC
< prev
next >
Wrap
Text File
|
1996-01-14
|
36KB
|
662 lines
{# Monthly art pack reviews #}
Procedure REVIEWS;
Label
READpakREVIEW, PakRELIST, LEAVEreviews;
var
Pakselect :byte;
BEGIN
pakselect := 1;
PakRELIST{LABEL}:
xch := ' ';
IFACEimg;
While xch <> (#13) do
begin
xch := ' ';
{Pack Selections}
textbackground(3);
textcolor(1);
{**********************************}
gotoxy(65,3){Issue #4}; {*}
write('ACiD'); {*}
{**********************************}
gotoxy(71,3); {*}
write('iCE'); {*}
{**********************************}
gotoxy(65,4);
write('Dark');
{**********************************}
gotoxy(71,4);
write('Evil');
{**********************************}
gotoxy(65,5); {*}
write('GoO'); {*}
{**********************************}
gotoxy(71,5); {*}
write('Blind'); {*}
{**********************************}
gotoxy(65,6);
write('CIA');
{**********************************}
gotoxy(71,6); {*}
write('Solo'); {*}
{**********************************}
gotoxy(65,7);
write('ACME');
{**********************************}
gotoxy(71,7);
write('Anemia');
{**********************************}
gotoxy(65,8);
write('Nausia');
{**********************************}
gotoxy(65,9);
write('EXIT Reviews');
{**********************************}
{Option Highlight}
textcolor(15);
if pakselect = 1 then
begin
gotoxy(65,3);
write('ACiD');
end;
if pakselect = 2 then
begin
gotoxy(71,3);
write('iCE');
end;
if pakselect = 3 then
begin
gotoxy(65,4);
write('Dark');
end;
if pakselect = 4 then
begin
gotoxy(71,4);
write('Evil');
end;
if pakselect = 5 then
begin
gotoxy(65,5);
write('GoO');
end;
if pakselect = 6 then
begin
gotoxy(71,5);
write('Blind');
end;
if pakselect = 7 then
begin
gotoxy(65,6);
write('CIA');
end;
if pakselect = 8 then
begin
gotoxy(71,6);
write('Solo');
end;
if pakselect = 9 then
begin
gotoxy(65,7);
write('ACME');
end;
if pakselect = 10 then
begin
gotoxy(71,7);
write('Anemia');
end;
if pakselect = 11 then
begin
gotoxy(65,8);
write('Nausia');
end;
if pakselect = 12 then
begin
gotoxy(65,9);
write('EXIT Reviews');
end;
xch := readkey;
case xch of
(#80) :begin
if pakselect < 12 then
pakselect := pakselect + 1;
end;
(#72) :begin
if pakselect > 1 then
pakselect := pakselect - 1;
end;
(#77) :begin
if pakselect < 12 then
pakselect := pakselect + 1 ;
end;
(#75) :begin
if pakselect > 1 then
pakselect := pakselect - 1;
end;
(#27) :begin
pakselect := 0;
EXIT;
end;
end;
end;
{Prepare selected option for reading}
{clearing out variables}
for x := 1 to 150 do
begin
xline[x] := ' ';
end;
{____________________________________________________________________________}
{*********************}
If pakselect = 1 then
begin
xline[1] := ' ';
xline[2] := ' No pack';
xline[3] := ' ';
xend := 3;
goto READpakREVIEW;
end;
{*********************}
if pakselect = 2 then
begin
xline[1] := ' ';
xline[2] := ' iCE9512 - [A] ';
xline[3] := ' ';
xline[4] := ' Apox[AX] √√√√√ ';
xline[5] := ' Nice work. ';
xline[6] := ' ';
xline[7] := ' Borian[BN] √√√√√√√√√ ';
xline[8] := ' Content, colors, all very nice. Smooth art. ';
xline[9] := ' ';
xline[10] := ' Cold and Ugly[CU] √√√√√√√ ';
xline[11] := ' Nice work. The shading was sweet. ';
xline[12] := ' ';
xline[13] := ' Highness[HN] √√√√√√ ';
xline[14] := ' Not up to your usual high quality standards. ';
xline[15] := ' ';
xline[16] := ' Kadaver[KA] √√√√√√ ';
xline[17] := ' Decent work. Not much detail, and the subjects were rather';
xline[18] := ' weak. ';
xline[19] := ' ';
xline[20] := ' Lemonade[LM] √√√√√√√√ ';
xline[21] := ' Nice work. I liked LM-ARKA1.ICE the best. ';
xline[22] := ' ';
xline[23] := ' Lord Soth[LS] √√√√√√ ';
xline[24] := ' More shading was needed. ';
xline[25] := ' ';
xline[26] := ' MD & Company[MD] √√√√√√ ';
xline[27] := ' Shading was nice. Stale content. ';
xline[28] := ' ';
xline[29] := ' Magnetic M[MM] √√√√√√ ';
xline[30] := ' Good shading. ';
xline[31] := ' ';
xline[32] := ' Misfit[MT] √√√√√√ ';
xline[33] := ' I liked what you did, but I thought more content should have';
xline[34] := ' been added to the pics. ';
xline[35] := ' ';
xline[36] := ' Prizm[PRM] √√√√√√√ ';
xline[37] := ' I liked that rip. Something I haven''t seen before. ';
xline[38] := ' ';
xline[39] := ' Parasite[PS] √√√√√√√ ';
xline[40] := ' Nice work. Ran smooth. ';
xline[41] := ' ';
xline[42] := ' Squidgalator[SQ] √√√√√ ';
xline[43] := ' Good work. ';
xline[44] := ' ';
xline[45] := ' Tical[TCL] √√√√√ ';
xline[46] := ' Decent. Nothing original. ';
xline[47] := ' ';
xline[48] := ' Tetanus[TE] √√√√√ ';
xline[49] := ' More shading and colors were needed to give your art depth and';
xline[50] := ' flare. ';
xline[51] := ' ';
xline[52] := ' Toon Goon[TG] √√√√√√√√ ';
xline[53] := ' Oh yeah. Kickass piece of work. ';
xline[54] := ' ';
xline[55] := ' The Green Hornet[TGH] √√√√√√√√ ';
xline[56] := ' Nice work. The Shading on TGH-SOAS.ICE was very nice. ';
xline[57] := ' ';
xline[58] := ' The Night Angel[TNA] √√√√ ';
xline[59] := ' Fonts. ';
xline[60] := ' ';
xline[61] := ' Us Art[US] √√√√√√√ ';
xline[62] := ' US-ICE.ICE was the best. ';
xline[63] := ' ';
xline[64] := ' Veks[VK] √√√√ ';
xline[65] := ' Lacks detail. ';
xline[66] := ' ';
xline[67] := ' JPEGs ';
xline[68] := ' ';
xline[69] := ' Aphid Twix[AT] √√√√√√√ ';
xline[70] := ' AT-4THST.JPG was the best. Nice work. ';
xline[71] := ' ';
xline[72] := ' [DI] √√√√√ ';
xline[73] := ' Unoriginal. ';
xline[74] := ' ';
xline[75] := ' [HF] √√√√√√ ';
xline[76] := ' Interesting. ';
xline[77] := ' ';
xline[78] := ' [MS] √√√√√ ';
xline[79] := ' Uninspired. ';
xline[80] := ' ';
xline[81] := ' [SK] √√√√√√√ ';
xline[82] := ' Nice work. I really liked SK-ICE1.JPG. ';
xline[83] := ' ';
xline[84] := ' Visigoth[VS] √√√√√√√√√ ';
xline[85] := ' Wicked original art. VS-WALL.JPG was rad as hell. ';
xline[86] := ' ';
xend := 86;
goto READpakREVIEW;
end;
{********************}
if pakselect = 3 then
begin
xline[1] := ' ';
xline[2] := ' DARK0196 - [C] ';
xline[3] := ' ';
xline[4] := ' The 4th Disciple[4THDS] √√ ';
xline[5] := ' Fonts and a matrix. ';
xline[6] := ' ';
xline[7] := ' Acidic Soap[ASOAP] √√√√√ ';
xline[8] := ' Well drawn. ';
xline[9] := ' ';
xline[10] := ' Moby[MOBY] √√√ ';
xline[11] := ' Nothing stood out. ';
xline[12] := ' ';
xline[13] := ' Multiple artists[MULTI] √√√ ';
xline[14] := ' Uninspired. ';
xline[15] := ' ';
xline[16] := ' Raize[RAIZE] √√√√√ ';
xline[17] := ' Different. ';
xline[18] := ' ';
xline[19] := ' Riptide[RPTDE] √√√√√ ';
xline[20] := ' A floating head. ';
xline[21] := ' ';
xline[22] := ' Xypher Matryx[XMTRX] √√√ ';
xline[23] := ' Uninspired. Lack of effort. ';
xline[24] := ' ';
xline[25] := ' JPEGs ';
xline[26] := ' ';
xline[27] := ' Burnout[BURNT] √√√√ ';
xline[28] := ' Original, but lacked clarity. ';
xline[29] := ' ';
xline[30] := ' [DVTYM] √√√ ';
xline[31] := ' Uninspired. Unoriginal. ';
xline[32] := ' ';
xline[33] := ' Prison Breaker[PRISB] √√√√√√ ';
xline[34] := ' Pretty cool, but needed more detail. PRISB-03.JPG was the';
xline[35] := ' best. ';
xline[36] := ' ';
xend := 36;
goto READpakREVIEW;
end;
{********************}
if pakselect = 4 then
begin
xline[1] := ' ';
xline[2] := ' EVIL1295 - [F] ';
xline[3] := ' ';
xline[4] := ' Ace[AC] √ ';
xline[5] := ' Art lacked any serious effort. ';
xline[6] := ' ';
xline[7] := ' Crazy[CR] √ ';
xline[8] := ' Nothing worth mentioning. Repetitive logos. Painful visual';
xline[9] := ' experience. ';
xline[10] := ' ';
xline[11] := ' Genocide[GC] √ ';
xline[12] := ' Learn to shade. Same as above. ';
xline[13] := ' ';
xline[14] := ' Hellstorm[HS] √ ';
xline[15] := ' I have no response to that. ';
xline[16] := ' ';
xline[17] := ' Sigmar[SG] √√ ';
xline[18] := ' Potentially a good artist. Learn to shade. Best pic was ';
xline[19] := ' SG-DC.EVL. ';
xline[20] := ' ';
xline[21] := ' Speed[SP] √ ';
xline[22] := ' Quality over quantity. Solid white ansis make my eyes ';
xline[23] := ' bleed. ';
xline[24] := ' ';
xline[25] := ' [TR] √ ';
xline[26] := ' No shading. No originality. ';
xline[27] := ' ';
xline[28] := ' Zork[ZO] √ ';
xline[29] := ' Dull. Flat. ';
xline[30] := ' ';
xend := 30;
goto READpakREVIEW;
end;
{********************}
if pakselect = 5 then
begin
xline[1] := ' ';
xline[2] := ' GOO001 - [D] ';
xline[3] := ' ';
xline[4] := ' K0rpse[K0] √√√ ';
xline[5] := ' Your shading is pretty good, but you need to practice on your';
xline[6] := ' pics. ';
xline[7] := ' ';
xline[8] := ' Psychoholic[PH] √√√√√√ ';
xline[9] := ' Charlie Chaplin is so cool. :) ';
xline[10] := ' ';
xline[11] := ' NOTE: You guys need more members. ;) ';
xline[12] := ' ';
xend := 12;
goto READpakREVIEW;
end;
{********************}
if pakselect = 6 then
begin
xline[1] := ' ';
xline[2] := ' BLIND-01 - [F] ';
xline[3] := ' ';
xline[4] := ' [GS] √√ ';
xline[5] := ' Abstract. ';
xline[6] := ' ';
xline[7] := ' Kirin[KRN] √ ';
xline[8] := ' Uninspired art. More attention to detail and shading was ';
xline[9] := ' needed. ';
xline[10] := ' ';
xline[11] := ' Lord of Illusions[LOI] √ ';
xline[12] := ' Poor subject choice. Shading and proportions needed work.';
xline[13] := ' ';
xline[14] := ' [LSD] √ ';
xline[15] := ' Uninspired. ';
xline[16] := ' ';
xline[17] := ' Malis Avibus[MA] √√ ';
xline[18] := ' Shading needed work. Poor subject matter. Too blocky. ';
xline[19] := ' Everything looked rushed and unfinished. ';
xline[20] := ' ';
xline[21] := ' [NRG] √ ';
xline[22] := ' Uninspired. ';
xline[23] := ' ';
xline[24] := ' The Sad Jester[SJ] √ ';
xline[25] := ' Left me limp. ';
xline[26] := ' ';
xline[27] := ' Stalker[ST] √ ';
xline[28] := ' Weak subject matter. Backgrounds needed more attention. ';
xline[29] := ' ';
xend := 29;
goto READpakREVIEW;
end;
{********************}
if pakselect = 7 then
begin
xline[1] := ' ';
xline[2] := ' CIAPAK30 - [C] ';
xline[3] := ' ';
xline[4] := ' Blackviper[BV] √ ';
xline[5] := ' Uninspired. ';
xline[6] := ' ';
xline[7] := ' Cyst[CY] √√√√ ';
xline[8] := ' Unoriginal. Poorly drawn and shaded. ';
xline[9] := ' ';
xline[10] := ' Cheeze[CZ] √√ ';
xline[11] := ' Nothing special. ';
xline[12] := ' ';
xline[13] := ' Darkshade[DS] √√√√ ';
xline[14] := ' Pics lacked detail and definition. ';
xline[15] := ' ';
xline[16] := ' Ethedrool[EO] √√ ';
xline[17] := ' Font. ';
xline[18] := ' ';
xline[19] := ' Lucifer[LF] √ ';
xline[20] := ' Font. ';
xline[21] := ' ';
xline[22] := ' Liquid Vision[LV] √√ ';
xline[23] := ' Fonts. ';
xline[24] := ' ';
xline[25] := ' Napalm[NA] √√√√√ ';
xline[26] := ' More content to the pics and definition was needed. ';
xline[27] := ' ';
xline[28] := ' Phaser X[PX] √√ ';
xline[29] := ' Not much to look at. ';
xline[30] := ' ';
xline[31] := ' Us art[US] √√√√√√ ';
xline[32] := ' That rip was original. A different approach. ';
xline[33] := ' ';
xline[34] := ' Veediot[VD] √ ';
xline[35] := ' Uninspired. ';
xline[36] := ' ';
xline[37] := ' [ZL] √√√√√√ ';
xline[38] := ' I liked the .GIF the best. ';
xline[39] := ' ';
xline[40] := ' JPEGs ';
xline[41] := ' ';
xline[42] := ' [LT] √√√ ';
xline[43] := ' Uninspired. ';
xline[44] := ' ';
xline[45] := ' Telstar[TE] √√√ ';
xline[46] := ' Uninspired. ';
xline[47] := ' ';
xend := 47;
goto READpakREVIEW;
end;
{********************}
if pakselect = 8 then
begin
xline[1] := ' ';
xline[2] := ' SOLO0196 - [F] ';
xline[3] := ' ';
xline[4] := ' Cynic[CY] √ ';
xline[5] := ' No depth, no detail, no shading or color. Bland. ';
xline[6] := ' ';
xline[7] := ' [DG] √ ';
xline[8] := ' Uninspired. Weak content and detail. This artist makes me ';
xline[9] := ' think he could care less. So why bother? ';
xline[10] := ' ';
xline[11] := ' [FU] √ ';
xline[12] := ' I have no response to this. ';
xline[13] := ' ';
xline[14] := ' [JF] √ ';
xline[15] := ' A font. ';
xline[16] := ' ';
xline[17] := ' [NX] √ ';
xline[18] := ' Despicable. ';
xline[19] := ' ';
xline[20] := ' [SD] √ ';
xline[21] := ' Uninspired fonts. ';
xline[22] := ' ';
xline[23] := ' [SN] √ ';
xline[24] := ' Another bland font. ';
xline[25] := ' ';
xline[26] := ' [WI] √ ';
xline[27] := ' More fonts. <yawn> ';
xline[28] := ' ';
xline[29] := ' [X0] √ ';
xline[30] := ' Lame ascii disguised with an *.ans extension. ';
xline[31] := ' ';
xend := 31;
goto READpakREVIEW;
end;
{********************}
if pakselect = 9 then
begin
xline[1] := ' ';
xline[2] := ' ACME0196 - [C] ';
xline[3] := ' ';
xline[4] := ' Arcade[AD] √√√√ ';
xline[5] := ' The shading on AD-ETERN.ANS was bad. The rest was okay. ';
xline[6] := ' The fonts were cool. A couple caught my attention like the';
xline[7] := ' one for Biproduct. ';
xline[8] := ' ';
xline[9] := ' K-os[KO] √ ';
xline[10] := ' Those fonts need work. They all looked the same and the shading';
xline[11] := ' was bland. ';
xline[12] := ' ';
xline[13] := ' Mortal[ML] √√ ';
xline[14] := ' Decent. Nothing stood out. The Terminal Overdose matrix needed ';
xline[15] := ' definition. ';
xline[16] := ' ';
xline[17] := ' Metal Man[MM] √ ';
xline[18] := ' Uninspired. ';
xline[19] := ' ';
xline[20] := ' Mauser[MR] √√√√ ';
xline[21] := ' Not bad. MR-TJT1.ANS was too blocky. Not a bad pic otherwise. ';
xline[22] := ' ';
xline[23] := ' Pinky[PK] √√√√ ';
xline[24] := ' Okay stuff. The Point Omega ansi had potential. Should have ';
xline[25] := ' given more attention to it. ';
xline[26] := ' ';
xline[27] := ' Rusty[RS] √√√√ ';
xline[28] := ' Practice. RS-T_OD1.ANS was your best. ';
xline[29] := ' ';
xline[30] := ' Sniper[SN] √ ';
xline[31] := ' Uninspired. ';
xline[32] := ' ';
xline[33] := ' [SV] √ ';
xline[34] := ' Weak subject. Lack of detail. ';
xline[35] := ' ';
xline[36] := ' [WB] √ ';
xline[37] := ' Uninspired. ';
xline[38] := ' ';
xend := 38;
goto READpakREVIEW;
end;
{*********************}
if pakselect = 10 then
begin
xline[1] := ' ';
xline[2] := ' ANE-0196 - [C] ';
xline[3] := ' ';
xline[4] := ' Crimeboss[CB] √√√ ';
xline[5] := ' CB-ANT.GIF was nothing short of pathetic. The rest were okay.';
xline[6] := ' ';
xline[7] := ' Flight[FLT] √√√ ';
xline[8] := ' Needed more shading and colors. ';
xline[9] := ' ';
xline[10] := ' Mung[MG] √√√√√ ';
xline[11] := ' Not bad. More would have been better. ';
xline[12] := ' ';
xline[13] := ' O OAnatoe[OO] √√√√√ ';
xline[14] := ' Definition was needed. Good Proportions, but it looked rushed.';
xline[15] := ' ';
xline[16] := ' Silverblade[SB] √√√√√ ';
xline[17] := ' The face needed work. ';
xline[18] := ' ';
xline[19] := ' The Hooded One[THO] √√√√ ';
xline[20] := ' More detail needed. Chose a better subject next time. ';
xline[21] := ' ';
xline[22] := ' Us art[US] √√ ';
xline[23] := ' Odie. ';
xline[24] := ' ';
xline[25] := ' Warlok[WK] √√√√ ';
xline[26] := ' The bull was cool, but the shading was bad. The other pic';
xline[27] := ' was weak. ';
xline[28] := ' ';
xend := 28;
goto READpakREVIEW;
end;
{*********************}
if pakselect = 11 then
begin
xline[1] := ' ';
xline[2] := ' NAUS0196 - [D] ';
xline[3] := ' ';
xline[4] := ' [G3] √√√√√ ';
xline[5] := ' Random shading when done improperly comes off like shit. Don''t';
xline[6] := ' overdo it. I liked G3-BIPRO.NAU the best. ';
xline[7] := ' ';
xline[8] := ' [LI] √√√ ';
xline[9] := ' Poorly drawn. Practice. ';
xline[10] := ' ';
xline[11] := ' [MD] √ ';
xline[12] := ' Uninspired. ';
xline[13] := ' ';
xline[14] := ' [NB] √√ ';
xline[15] := ' Nuclear Holocaust was the best. ';
xline[16] := ' ';
xline[17] := ' [PH] √ ';
xline[18] := ' Bland. ';
xline[19] := ' ';
xline[20] := ' [TR] √ ';
xline[21] := ' Uninspired. Lacking detail. ';
xline[22] := ' ';
xend := 22;
goto READpakREVIEW;
end;
{*********************}
if pakselect = 12 then
begin
EXIT;
end;
{**Read selected text**}
READpakREVIEW:
textbackground(0);
textcolor(9);
clrscr;
T_HDRimg{Display the text header ansi};
window(4,5,76,21);
gotoxy(1,1);
xch := ' ';
for x := 1 to 16 do
writeln(xline[x]);
while (xch <> (#13)) and (xch <> (#27)) do begin
xch := ' ';
xch := readkey;
case xch of
(#80) :begin
if x <= xend then
begin
x := x + 1;
gotoxy(1,1);
delLine;
gotoxy(1,16);
writeln(xline[x]);
end;
end;
(#72) :begin
if (x - 15) > (1) then
begin
x := x - 1;
gotoxy(1,1);
InsLine;
writeln(xline[x-15]);
end;
end;
(#81) :begin
if x <= xend then
begin
x := x + 1;
gotoxy(1,1);
delLine;
gotoxy(1,16);
writeln(xline[x]);
end;
end;
(#73) :begin
if (x - 15) > (1) then
begin
x := x - 1;
gotoxy(1,1);
InsLine;
writeln(xline[x-15]);
end;
end;
(#77) :begin
if x <= xend then
begin
x := x + 1;
gotoxy(1,1);
delLine;
gotoxy(1,16);
writeln(xline[x]);
end;
end;
(#75) :begin
if (x - 15) > (1) then
begin
x := x - 1;
gotoxy(1,1);
InsLine;
writeln(xline[x-15]);
end;
end;
end;
end;
window(1,1,80,25){Return screen to normal size};
goto pakRELIST;
END;
